From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 14 Apr 2019 21:39:29 +0000 (+0300)
Subject: Sort files in the default impl of project-files alphabetically
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~3643
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ae78bda5b88a912a1d2a4b62691dce3efa967047;p=emacs.git

Sort files in the default impl of project-files alphabetically

* lisp/progmodes/project.el (project--files-in-directory):
Sort the files alphabetically
(https://debbugs.gnu.org/cgi/bugreport.cgi?bug=23179#296).
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index dabc4ab6b45..b8a58ed317b 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -209,7 +209,8 @@ to find the list of ignores for each directory."
                                      (shell-quote-argument ")"))"")
                          )))
     (project--remote-file-names
-     (split-string (shell-command-to-string command) "\0" t))))
+     (sort (split-string (shell-command-to-string command) "\0" t)
+           #'string<))))
 
 (defun project--remote-file-names (local-files)
   "Return LOCAL-FILES as if they were on the system of `default-directory'."